home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / misc / mf-db.zip / VBSAMPLE\BCARDIND.FRM < prev    next >
Text File  |  1993-10-02  |  2KB  |  67 lines
  1. VERSION 2.00
  2. Begin Form IndexForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Indexing"
  5.    Height          =   1950
  6.    Left            =   2310
  7.    LinkTopic       =   "Form1"
  8.    MaxButton       =   0   'False
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   1575
  11.    ScaleWidth      =   5100
  12.    Top             =   3840
  13.    Width           =   5190
  14.    Begin TextBox pComplete 
  15.       Height          =   285
  16.       Left            =   120
  17.       TabIndex        =   2
  18.       Text            =   "Text1"
  19.       Top             =   1200
  20.       Visible         =   0   'False
  21.       Width           =   1515
  22.    End
  23.    Begin Label lComplete 
  24.       Alignment       =   2  'Center
  25.       BackColor       =   &H00C0C0C0&
  26.       Caption         =   "0"
  27.       Height          =   255
  28.       Left            =   780
  29.       TabIndex        =   1
  30.       Top             =   660
  31.       Width           =   3735
  32.    End
  33.    Begin Label Label1 
  34.       Alignment       =   2  'Center
  35.       BackColor       =   &H00C0C0C0&
  36.       Caption         =   "Percent Complete"
  37.       Height          =   255
  38.       Left            =   1020
  39.       TabIndex        =   0
  40.       Top             =   240
  41.       Width           =   2955
  42.    End
  43. End
  44. Option Explicit
  45.  
  46. ' Reindex example
  47. ' note: junkI is used to pass the DB handle.  Since
  48. ' VB doesn't support 'DialogBoxParam' style (to pass
  49. ' variables and such) we have to use a global to
  50. ' get the DB handle.
  51. '
  52. Sub Form_Load ()
  53.     Me.Show
  54.     Me.Refresh
  55.     junkI = mfReIndex(pComplete.hWnd, TaskHndl, junkI)
  56.     Unload Me
  57. End Sub
  58.  
  59. ' This demonstrates getting the percent complete
  60. ' text from MF.
  61. Sub pComplete_Change ()
  62.     
  63.     lComplete.Caption = pComplete.Text
  64.     junk = DoEvents()
  65. End Sub
  66.  
  67.